#!/usr/bin/runhugs
import Data.Char

main = putStr $ unlines (head : "" : body) where
    head = "  " ++ ['0'..'9'] ++ ['a'..'f']
    body = [show u++" "++ [chr (u*16+l) | l<-[0..15]] | u <- [2..7]]
